Windows 6-Pak - Disc 4/Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO/Text-Chat-Addins/C-Script.exe/Sysfiles/Aliases/aliases.mrc

Text File | 1998-05-15 | 22.8 KB | 361 lines

;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
;Configure at your own risk
;Useful commands, function keys, IRCop commands, Away system, Color Stripping


;==========
;Useful commands (some of these are also used by the script)
;==========

numppl if (# == $null) { echo  $+ $clr(info) $+ *** You're not on a channel | halt } | else { echo  $+ $clr(info) $+ *** Number of users for # $+ : $nick(#,0) $+ . $opnick(#,0) ( $+ $perc($opnick(#,0),$nick(#,0)) $+ $chr(37) $+ ) ops, $vnick(#,0) ( $+ $perc($vnick(#,0),$nick(#,0)) $+ $chr(37) $+ ) voices, and $nvnick(#,0) ( $+ $perc($nvnick(#,0),$nick(#,0)) $+ $chr(37) $+ ) normal! }
tquit { quit  $+ %CSLOGO $+  Time used on IRC: $duration($online) }
ta topic # $read sysfiles\topic.txt
massinvite { set %invite.var 1 | :next | if ($nick(#,%invite.var) == $null) { goto done } | invite $nick(#,%invite.var) $$1 | inc %invite.var 1 | goto next | :done }
nopn { set %tmp.notice.var 1 | :next | if ($nopnick(#,%tmp.notice.var) == $null) { goto done } | if ($nopnick(#,%tmp.notice.var) == $me) { inc %tmp.notice.var 1 | goto next } | notice $nopnick(#,%tmp.notice.var) [Non-Ops Notice] $1- | inc %tmp.notice.var 1 | goto next | :done }
nopm { set %tmp.opmsg.var 1 | :next | if ($nopnick(#,%tmp.opmsg.var) == $null) { goto done } | if ($nopnick(#,%tmp.opmsg.var) == $me) { inc %tmp.opmsg.var 1 | goto next } | msg $nopnick(#,%tmp.opmsg.var) [Non-Ops Message] $1- | inc %tmp.opmsg.var 1 | goto next | :done }
vn { set %tmp.notice.var 1 | :next | if ($vnick(#,%tmp.notice.var) == $null) { goto done } | if ($vnick(#,%tmp.notice.var) == $me) { inc %tmp.notice.var 1 | goto next } | notice $vnick(#,%tmp.notice.var) [Voice Notice] $1- | inc %tmp.notice.var 1 | goto next | :done }
vm { set %tmp.vmsg.var 1 | :next | if ($vnick(#,%tmp.vmsg.var) == $null) { goto done } | if ($vnick(#,%tmp.vmsg.var) == $me) { inc %tmp.vmsg.var 1 | goto next } | msg $vnick(#,%tmp.vmsg.var) [Voice Message] $1- | inc %tmp.vmsg.var 1 | goto next | :done }
fk {
  set %fkr $1
  set %fkinn 0
  set %fkcn $nick(#,0)
  :loop1
  set %fkinn2 0
  inc %fkinn
  if (%fkinn > %fkcn) { goto done }
  set %fkadd $address($nick(#,%fkinn),1)
  :loop2
  inc %fkinn2
  if (%fkr iswm $ial(%fkadd,%fkinn2) && $ial(%fkadd,%fkinn2).nick != $me) { kick # $ial(%fkadd,%fkinn2).nick $2- ( $+ %fkr $+ ) | goto loop2 }
  else { goto loop1 }
  :done
}
fbk {
  set %fkr $1
  set %fkinn 0
  set %fkcn $nick(#,0)
  :loop1
  set %fkinn2 0
  inc %fkinn
  if (%fkinn > %fkcn) { goto done }
  set %fkadd $address($nick(#,%fkinn),1)
  :loop2
  inc %fkinn2
  if (%fkr iswm $ial(%fkadd,%fkinn2) && $ial(%fkadd,%fkinn2).nick != $me) { ban # $ial(%fkadd,%fkinn2).nick 3 | kick # $ial(%fkadd,%fkinn2).nick $2- ( $+ %fkr $+ ) | goto loop2 }
  else { goto loop1 }
  :done
}
t1 topic # $read -l1 sysfiles\topic.txt
t2 topic # $read -l2 sysfiles\topic.txt
t3 topic # $read -l3 sysfiles\topic.txt
t4 topic # $read -l4 sysfiles\topic.txt
t5 topic # $read -l5 sysfiles\topic.txt
t6 topic # $read -l6 sysfiles\topic.txt
t7 topic # $read -l7 sysfiles\topic.txt
t8 topic # $read -l8 sysfiles\topic.txt
t9 topic # $read -l9 sysfiles\topic.txt
t10 topic # $read -l10 sysfiles\topic.txt
t11 topic # $read -l11 sysfiles\topic.txt
rankick { :begin | set %tmp.kick.var $r(1,$nick(#,0)) | if ($nick(#,%tmp.kick.var) == $me) { goto begin } | kick $$1 $nick(#,%tmp.kick.var) Random Kick }
rok { :begin | set %tmp.kick.var $r(1,$opnick(#,0)) | if ($opnick(#,%tmp.kick.var) == $me) { goto begin } | kick $$1 $opnick(#,%tmp.kick.var) Random Op Kick }
rnok { :begin | set %tmp.kick.var $r(1,$nopnick(#,0)) | if ($nopnick(#,0) == 0) { halt } | kick # $nopnick(#,%tmp.kick.var) Random Non Op Kick }
rvk { :begin | set %tmp.kick.var $r(1,$vnick(#,0)) | if ($vnick(#,0) == 0) { halt } | kick # $vnick(#,%tmp.kick.var) Random Voice Kick }
mkick { set %k 1 | :next | set %knick $nick(#,%k) | if (%knick == $null) { goto done } | inc %k | if (%knick != $me) { kick # %knick MASSKICK %CSLOGO } | goto next | :done }
mban { set %tmp.bns 0 | :next | inc %tmp.bns | set %tmp.bnnick $nick(#,%tmp.bns) | if (%tmp.bnnick == $null) { goto done } | if (%tmp.bnnick != $me) { ban # %tmp.bnnick 3 } | else { goto done } | goto next | :done }
mbk { set %tmp.bns 0 | :next | inc %tmp.bns | set %tmp.bnnick $nick(#,%tmp.bns) | if (%tmp.bnnick == $null) { goto done } | if (%tmp.bnnick != $me) { ban # %tmp.bnnick 3 | kick # %tmp.bnnick } | else { goto done } | goto next | :done }
mko { set %k 1 | :next | set %knick $opnick(#,%k) | if (%knick == $null) { goto done } | inc %k | if (%knick != $me) { kick # %knick MASS-OP-KICK %CSLOGO } | goto next | :done }
mkno { set %k 1 | :next | set %knick $nopnick(#,%k) | if (%knick == $null) { goto done } | inc %k | if (%knick != $me) { kick # %knick MASS-NON-OP-KICK %CSLOGO } | goto next | :done }
mkv { set %k 1 | :next | set %knick $vnick(#,%k) | if (%knick == $null) { goto done } | inc %k | if (%knick != $me) { kick # %knick MASS-VOICE-KICK %CSLOGO } | goto next | :done }
globkick {
  set %i 1
  set %NumCom $comchan($1,0)
  if (%numcom == 0) { echo  $+ $clr(info) $+ *** $1 isn't on any channels you're on | halt }
  set %i 1
  :back
  if (%i <= %numcom) { if ($me isop $comchan($1,%i)) kick $comchan($1,%i) $1 | inc %i | goto back }
  unset %NumCom
}
globban {
  set %NumCom $comchan($1,0)
  if (%numcom == 0) { echo  $+ $clr(info) $+ *** $1 isn't on any channels you're on | halt }
  set %i 1
  :back
  if (%i <= %numcom) { if ($me isop $comchan($1,%i)) ban $comchan($1,%i) $1 3 | inc %i | goto back }
  unset %NumCom
}
globkb globban $1 | globkick $1
ascii { say $iascii($1-) }
asciirain {
  %tmp.asciirain = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,a,Γ),i,ε),e,Ω),o,⌠),u,√),b,▀),c,⌐),d,╨),f,â),h,}{),k,/<),l,ú),n,±),p,■),r,«),s,Ü),t,å),v,\/),x,╫),y, ),0,╪),?,┐),!,í),1/4,╝),1/2,╜),3/4,╛)
  rainbow %tmp.asciirain
}
C-Script say %GETLT
translate echo  $+ $clr(info) $+ *** $asctime($$1) in mIRC
longip echo  $+ $clr(info) $+ *** $$1 resolved to $longip($1)
hchans { join $chr(35) $+ $chr(3) $+ 0 }
fdcc msg $$?="Nick to fake DCC send to:" $chr(1) $+ DCC SEND " $+ $$?="What to send?" $+ " $longip($ip) 81 $$?="File size?" $chr(1)
fchan { join # $+ $chr(160) $+ @ $+ #$$?="Channel to have fake ops on:" }
repeat say $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1- $1-
e exit $1-
idle .timer 0 140 msg # ...
hide .timer 1 3 join # | part # | nick $$1
Sey say  $+ $1- $+ 
time echo  $+ $clr(info) $+ *** $atime on $day $adate
NFLO .timer 0 2 rn | .timer 0 5 rn
1 silence *!*@* | flood 1 1 50
2 silence - | flood 3 7 20
ver say I'm using $vers
rn nick $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z)
wb me warmly welcomes $$1 back
fake say $chr(160)
lol me is lol :╖D
brb ame will be right back :╖) $chr(91) $+ $1- $+ $chr(93) | set %tmp.b4an $me | nick $me $+ -BRB
back {
  if ($away == $true) { away } | else { ame is back :╖) }
  if (%tmp.b4an != $me && %tmp.b4an != $null) { nick %tmp.b4an } | else { nick $?="Your Nick?" }
}
hug say $str($chr(123),15) $$1 $str($chr(125),15)
me's me 's $$1-
on { if ($1 == $null) { echo  $+ $clr(info) $+ *** No text to send... | halt } | if ($me isop #) { onotice # $1- } | else { set %tmp.notice.var 1 | :next | if ($opnick(#,%tmp.notice.var) == $null) { goto done } | notice $opnick(#,%tmp.notice.var) %CHNN1 $+ # Op Notice $+ %CHNN2 $1- | inc %tmp.notice.var 1 | goto next | :done } }
om { if ($1 == $null) { echo  $+ $clr(info) $+ *** No text to send... | halt } | if ($me isop #) { omsg # %CHNN1 $+ # Op Msg $+ %CHNN2 $1- } | else { set %tmp.notice.var 1 | :next | if ($opnick(#,%tmp.notice.var) == $null) { goto done } | msg $opnick(#,%tmp.notice.var) %CHNN1 $+ # Op Msg $+ %CHNN2 $1- | inc %tmp.notice.var 1 | goto next | :done } }
ome { if ($1 == $null) { echo  $+ $clr(info) $+ *** No text to send... | halt } | if ($me isop #) { describe @ $+ # $1- @ $+ # } | else { set %tmp.notice.var 1 | :next | if ($opnick(#,%tmp.notice.var) == $null) { goto done } | .describe $opnick(#,%tmp.notice.var) $1- @ $+ # | inc %tmp.notice.var 1 | goto next | :done } }
bm amsg %BRDM $1-
bn anotice %BRDN $1-
ba ame $1- %BRDN
code say $icode($1-) 0[C-C]
decode echo -a 12 -a $idecode($1-) %CCDC3
pie me -------[}.......................[ *1 ]  | me  --------------------[}..........[ *1 ]  |  me -----------------------------------[splat!!!!]
box say 4,4  $1- $+ ! | say 0,4  $1-  1,1!  | say 4,4  $1-  1,1! | say 0,0 1,1 $1- $+ !
box2 say 2,2  *1 $+ ! | say 0,2  *1  1,1!  | say 2,2  *1  1,1! | say 0,0 1,1 *1 $+ !
box3 say 3,3  *1 $+ ! | say 8,3  *1  1,1!  | say 3,3  *1  1,1! | say 0,0 1,1 *1 $+ !
box4 say 8,8  *1 $+ ! | say 3,8  *1  1,1!  | say 8,8  *1  1,1! | say 0,0 1,1 *1 $+ !
box5 say 9,9  *1 $+ ! | say 12,9  *1  1,1!  | say 9,9  *1  1,1! | say 0,0 1,1 *1 $+ !
box6 say 11,11  *1 $+ ! | say 2,11  *1  1,1!  | say 11,11  *1  1,1! | say 0,0 1,1 *1 $+ !
box7 say 12,12  *1 $+ ! | say 0,12  *1  1,1!  | say 12,12  *1  1,1! | say 0,0 1,1 *1 $+ !
box8 say 13,13  *1 $+ ! | say 1,13  *1  1,1!  | say 13,13  *1  1,1! | say 0,0 1,1 *1 $+ !
frame say 15,15 $1-  áá  | say 15,15 14,14 $1- 15,15á | say 15,15 14,14 4,1 $+ $1- $+ 14,14 15,15á | say 15,15 14,14 $1- 15,15á  | say 15,15 $1-  áá
clearbans {
  if ($1 == $null && $chr(35) isin $active) { set %tmp.clb $active }
  elseif ($1 != $null) { set %tmp.clb #$1 }
  else { echo -a  $+ $clr(info2) $+ *** Usage: /clearbans <#channel> | halt }
  .enable #clearbans
  mode %tmp.clb +b
}
nk if ($$1 !== $me) { raw -q NICK $$1 } | else { echo -a  $+ $clr(info) $+ *** Your nickname is already $$1 }
na names #$1
part part # $1-
cycle part # %CYCLE | .timer 1 2 join #
umode mode $me $1-
cmode mode # $1-
l if ($1 == $null) { part # $vers www.C-Script.com } | else { part # $1- }
part if ($1 == $null) { part # $vers www.C-Script.com } | else { part # $1- }
leave if ($1 == $null) { part # $vers www.C-Script.com } | else { part # $1- }
j join $1- | if (%sounds != Off) { .splay sounds\working.wav }
join set %tmp.jntime $ticks | raw -q join #$$1 : $+ $2-
hop l # Hopping to #$1 | j #$1
w who $1-
wi whois $$1-
ww whowas $$1-
q query $$1
send dcc send $1 $2
chat dcc chat $1
top topic # $1-
to timers off
p if ($1 == $null) { if ($left($active,1) == =) { ctcp $mid($active,2,$len($active)) PING } | else { ctcp $active PING } } | else { ctcp $1 PING }
ping if ($1 == $null) { if ($left($active,1) == =) { ctcp $mid($active,2,$len($active)) PING } | else { ctcp $active PING } } | else { ctcp $1 PING }
v if ($1 == $null) { if ($left($active,1) == =) { ctcp $mid($active,2,$len($active)) PING } | else { ctcp $active VERSION } } | else { ctcp $1 VERSION }
i if ($2 == $null) invite $$1 # | else { invite $$1 $2 }
m msg $$1 %PRVM $2-
n notice $$1 %PRVN $2-
no notice $$1 %PRVN $2-
rainbow say $irainbow($1-) | unset %clrlist %altclrlist %fnl %txt %clr %i
oop omode # +ooo $$1 $2 $3 | omode # +ooo $$4 $5 $6
odeop omode # -ooo $$1 $2 $3 | omode # -ooo $$4 $5 $6
saop samode # +ooo $$1 $2 $3 | samode # +ooo $$4 $5 $6
sadeop samode # -ooo $$1 $2 $3 | samode # -ooo $$4 $5 $6
addicted say You know you're addicted to IRC if... $read addicted.txt
quote say C-Script quote: " $+ $read quotes.txt $+ "

;==========
;Function keys
;==========

f1 help
f2 {
  wincheck @F-Keys +tn @F-Keys $center(400,165,@F-Keys) 400 165 comic sans ms 12
  for 8 aline @f-keys á
  rline @f-keys $next  $+ $clr(info2) $+ F1: $+ $clr(info) Help
  rline @f-keys $next  $+ $clr(info2) $+ F2: $+ $clr(info) This chart
  rline @f-keys $next  $+ $clr(info2) $+ F3: $+ $clr(info) Join the last channel you were invited to
  rline @f-keys $next  $+ $clr(info2) $+ F4: $+ $clr(info) Toggle MAX Flood Protection
  rline @f-keys $next  $+ $clr(info2) $+ F6: $+ $clr(info) C-Script's Status
  rline @f-keys $next  $+ $clr(info2) $+ F7: $+ $clr(info) Color Table
  rline @f-keys $next  $+ $clr(info2) $+ Ctrl-F7: $+ $clr(info) Black Background Color Table
  rline @f-keys $next  $+ $clr(info2) $+ F8: $+ $clr(info) Nick Complete
  next 1
}
f3 if (%tmp.ivchan != $null) { join %tmp.ivchan }
f4 if ($group(#max) == on) { set %dp.55 - Max Flood Pro | .disable #MAX | .enable #groupCTCP | echo  $+ $clr(info2) $+ *** %MFP22 } | else { set %dp.55 + Max Flood Pro | .enable #MAX | .disable #groupCTCP | echo  $+ $clr(info2) $+ *** %MFP21 }
f6 cstatus
f7 ct
cf7 bct
f8 {
  if ($left($active,1) != $chr(35)) { halt }
  set %tmp.ncwin1 $active
  set %tmp.nci $count($editbox($active),$chr(32))
  if (%tmp.nci < 1) {
    set %tmp.nci.c 1
    set %tmp.ncit $editbox($active)
    goto end
  }
  if ($left($editbox($active),1) == $chr(32)) {
    set %tmp.nci.c 1
    set %tmp.ncit $$?="Text to complete::"
    goto end
  }
  else {
    set %tmp.nci 1 $+ - $+ $count($editbox($active),$chr(32))
    set %tmp.nci2 $gettok($editbox($active),%tmp.nci,32)
    set %tmp.nci $gettok(%tmp.nci,2,45)
    inc %tmp.nci
    set %tmp.nci %tmp.nci
    set %tmp.nci.c 2
    set %tmp.ncit $gettok($editbox($active),%tmp.nci,32)
    goto end
  }
  :end
  if (%tmp.ncit == $null) { set %tmp.ncit $$?="Text to complete:" }
  set %tmp.nci3 $nci(%tmp.ncit)
  if (%tmp.nci.c == 2) { editbox %tmp.ncwin1 %tmp.nci2 $+ $chr(32) $+ %tmp.nci3 }
  else { editbox %tmp.ncwin1 %tmp.nci3 }
}
f9 clnwarn %deccln
f10 clnkick %deccln
f11 clnbk %deccln
f12 if (%tmp.kchan2 != $null) { %tmp.kchan2 }
cf2 reply
cf3 if (%tmp.ivnick != $null) { ignore -a %tmp.ivnick 3 }
sf2 semail
sf3 if (%tmp.ivnick != $null) { ignore -i %tmp.ivnick 3 }

;==========
;IRCop commands
;==========

wall raw -q wallops : $+ $$1-
globops raw -q globops : $+ $$1-
gops raw -q globops : $+ $$1-
locops raw -q locops : $+ $$1-
lops raw -q locops : $+ $$1-
chatops raw -q chatops : $+ $$1-
cops raw -q chatops : $+ $$1-
global notice $ $+ *. $+ $getend($server) %GLBNO $$1- %GLBNREP
globmsg msg $ $+ *. $+ $getend($server) %GLBMS $$1- %GLBNREP
globme describe $ $+ *. $+ $getend($server) $$1- %GLBNREPA
ghost { if (* != $left($gethost($$1),1)) { notice $chr(35) $+ * $+ $gethost($$1) $$2- } | else { notice $chr(35) $+ $gethost($$1) $$2- } }
ghostm { if (* != $left($gethost($$1),1)) { msg $chr(35) $+ * $+ $gethost($$1) $$2- } | else { msg $chr(35) $+ $gethost($$1) $$2- } }
ghostme { if (* != $left($gethost($$1),1)) { describe $chr(35) $+ * $+ $gethost($$1) $$2- } | else { describe $chr(35) $+ $gethost($$1) $$2- } }

;==========
;Away system
;==========

startcchk {
  if (%chanrejoin == on) {
    if ($gettok($server,%ccserverc,46) == %ccserver) {
      if (%crchn == Y && %AWAY == TRUE && %ccchns > 0) { crjs }
      elseif (%crchn == Y && %AWAY != TRUE && %ccchns > 0) { crjsw }
      else { .timer734 0 10 chancheck }
    }
    else { .timer734 0 10 chancheck }
  }
}
startac { if (%AWAY == TRUE) { set %BPA YES | .timer400 0 40 echo  $+ $clr(info) $+ *** C-Script was disconnected from the server and has decided that you are still away! If you are not still away, please type /away. If you are still away please type /away as soon as you come back. To turn this message off without setting yourself back, type /timer400 off. | away } | else { set %BPA NO } }
away {
  if (%BPA == YES) { away %AWAYR %AWAYSTS %AWAYT | set %BPA NO | goto final }
  if ($1- == $null) {
    if (%AWAY == false && $away == $false) { .disable #msglog | .disable #aamsgs | .disable #groupAWAY | .disable #BEEP | .disable #AUTOIDLEAWAY | set %PGER Off | set %BEEP Off | set %mlmsgnum 0 | set %MSGNUM 0 | .unset %MSGNICKS | .timer400 off | .timer350 off | .timer823 off | .timer525 off | if ($server != $null) { echo  $+ $clr(info) $+ *** You are not away! } | halt }
    if ((%msgnum == 1) && (%PGER == On)) { echo  $+ $clr(info) $+ *** You have %msgnum message waiting from %msgnicks $+ . %MSGS4 }
    if ((%msgnum >= 2) && (%PGER == On)) { echo  $+ $clr(info) $+ *** You have %msgnum messages waiting from the following people: %msgnicks $+ . %MSGS3 }
    if ((%mlmsgnum >= 1) && (%msglog == On)) { echo  $+ $clr(info) $+ *** You have %mlmsgnum logged message(s) (See MsgLog window). }
    if (%mlmsgnum == 0) { msglogw -c } | resetidle
    %atotal = $ctime - %awaytime | away | .disable #msglog | .disable #aamsgs | .disable #groupAWAY | .disable #BEEP | .disable #AUTOIDLEAWAY | set %PGER Off | set %BEEP Off | set %mlmsgnum 0 | set %MSGNUM 0 | .unset %MSGNICKS | .timer400 off | .timer350 off | .timer823 off | .timer525 off | if ($chan(0) != 0) { ame is back from:  $+ %AWAYR $+  Away:  $+ $stime($duration(%atotal)) $+  } | if (%b4an != $me && %b4an != $null && away !isin %b4an && bbl !isin %b4an && brb !isin %b4an) { .timer -m 1 1500 nk %b4an } | halt
  }
  if (-h == $left($$1,2) && -h == $right($$1,2) && a !isin $$1) {
    linesep
    echo  $+ $clr(info) $+ Away Help:
    echo  $+ $clr(info) $+ Syntax: /away -[n|p|m|b|a|h] [Reason] or /away
    echo  $+ $clr(info2) $+ -n = All Off. (Normal Away)
    echo  $+ $clr(info2) $+ -p = Only Pager On.
    echo  $+ $clr(info2) $+ -m = Only MsgLog On.
    echo  $+ $clr(info2) $+ -b = Only Beeper On.
    echo  $+ $clr(info2) $+ -a = All On.
    echo  $+ $clr(info2) $+ -h = This help menu.
    echo  $+ $clr(info2) $+ /away = Sets you back.
    echo  $+ $clr(info) $+ Note: You can combine two away modes together. Example: /away -pm I'm away! Would set you away with your Pager and MsgLog On.
    linesep
    halt
  }
  if (- isin $1 && $2- == $null) { set %AWAYR $?="Reason" }
  elseif (- isin $1 && $2- != $null) { set %AWAYR $2- }
  else { set %AWAYR $1- }
  if (-a == $left($$1,2) && -a == $right($$1,2)) {
    set %BEEP On
    set %PGER On
    set %msglog On
    .enable #aamsgs
    .enable #msglog
    .enable #groupAWAY
    .enable #BEEP
    window -c %msglogw
    msglogw
    goto aways
  }
  if ((-bp == $left($$1,3) && -bp == $right ($$1,3) && a !isin $$1) || (-pb == $left($$1,3) && -pb == $right ($$1,3) && a !isin $$1) && (m !isin $$1)) { goto bpnxt | :bpnxt | set %PGER On | set %msglog Off | set %BEEP On | .enable #aamsgs | .disable #msglog | .enable #BEEP | .enable #groupAWAY | goto aways }
  if ((-mp == $left($$1,3) && -mp == $right ($$1,3) && a !isin $$1) || (-pm == $left($$1,3) && -pm == $right ($$1,3) && a !isin $$1) && (b !isin $$1)) { goto mpnxt | :mpnxt | set %BEEP Off | set %msglog On | set %PGER On | .enable #aamsgs | .enable #msglog | .disable #BEEP | .enable #groupAWAY | window -c %msglogw | msglogw | goto aways }
  if ((-mb == $left($$1,3) && -mb == $right ($$1,3) && a !isin $$1) || (-bm == $left($$1,3) && -bm == $right ($$1,3) && a !isin $$1) && (p !isin $$1)) { goto mbnxt | :mbnxt | set %BEEP On | set %msglog On | set %PGER Off | .enable #aamsgs | .enable #msglog | .enable #BEEP | .disable #groupAWAY | window -c %msglogw | msglogw | goto aways }
  if (-p == $left($$1,2) && -p == $right($$1,2) && (a !isin $$1 && m !isin $$1 && b !isin $$1)) { set %BEEP Off | set %msglog Off | set %PGER On | .enable #aamsgs | .disable #msglog | .disable #BEEP | .enable #groupAWAY | goto aways }
  if (-m == $left($$1,2) && -m == $right($$1,2) && (a !isin $$1 && p !isin $$1 && b !isin $$1)) { set %BEEP Off | set %PGER Off | set %msglog On | .disable #BEEP | .disable #aamsgs | .disable #groupAWAY | .enable #msglog | window -c %msglogw | msglogw | goto aways }
  if (-b == $left($$1,2) && -b == $right($$1,2) && (a !isin $$1 && p !isin $$1 && m !isin $$1)) { set %BEEP On | set %msglog Off | set %PGER Off | .enable #aamsgs | .disable #msglog | .enable #BEEP | .disable #groupAWAY | goto aways }
  if (-n == $left($$1,2) && -n == $right($$1,2) && a !isin $$1) { set %BEEP Off | set %PGER Off | set %msglog Off | .disable #BEEP | .disable #aamsgs | .disable #groupAWAY | .disable #msglog | goto aways }
  else { set %BEEP Off | set %PGER Off | set %msglog Off | .disable #BEEP | .disable #aamsgs | .disable #groupAWAY | .disable #msglog | goto aways }
  :aways
  .timer823 off | set %BPA NO | set %AWAYTIME $ctime | set %MSGNUM 0 | set %mlmsgnum 0 | set %AWAYSTS  $+ %AWAYR $+  Pager:  $+ %PGER $+  MsgLog:  $+ %msglog $+  Beeper:  $+ %BEEP $+  E-Mail:  $+ %awayemail $+  ICQ:  $+ %awayuin $+  | set %AWAYT Away since  $+ $sday($day) $sadate $satime $+  | set %AWAYMSG %AWAYSTS %AWAYT | set %b4an $me | addrec away %AWAYR | .away %AWAYMSG
  if ($chan(0) != 0) { ame set away: %AWAYSTS }
  :final
}
awayoff { set %AWAY false | .disable #msglog | .disable #aamsgs | .disable #groupAWAY | .disable #BEEP | .disable #AUTOIDLEAWAY | set %PGER Off | set %BEEP Off | unset %AWAYR  | unset %AWAYT | unset %AWAYMSG | set %mlmsgnum 0 | set %MSGNUM 0 | .unset %MSGNICKS }
idleaway { if (%idleaway != On) { goto finish } | elseif ($away == $true) { goto finish } | elseif (($away == $false) && (%idleaway == On) && ($idle >= %idletimesec)) { away -n Auto Away after $duration(%idletimesec) idle. | .enable #AUTOIDLEAWAY | set %AIA5 On | .timer823 0 2 idleacheck } | else { goto finish } | :finish }
idleacheck { if ((%AIA5 == On) && ($idle < %idletimesec)) { away | .timer823 off } }
awaycheck { linesep | if ($away == $true) && (%AWAY != TRUE) { echo  $+ $clr(info2) $+ *** Away Error. Please type /away and try again } | elseif ($away == $false) && (%AWAY == TRUE) { echo  $+ $clr(info2) $+ *** Away ERROR. Please type /away and try again } | elseif ($away == $true) { echo  $+ $clr(info) $+ *** You are away } | elseif ($away == $false) { echo  $+ $clr(info) $+ *** You are not away } | linesep }

;==========
;Seen script
;==========

seenclean write -c sysfiles\seen\seen.ini | write -l1 sysfiles\seen\seen.ini [nicks]
seen {
  %seen = $readini -n sysfiles\seen\seen.ini nicks $fx($1)
  if (%seen == $null) { echo  $+ $clr(info) $+ *** You have never seen $1 $+ . | halt }
  else {
    if ($gettok(%seen,1,32) == join) { set %seen2 joining }
    if ($gettok(%seen,1,32) == part) { set %seen2 parting }
    if ($gettok(%seen,1,32) == quit) { set %seen2 quiting from }
    set %seen You last saw $gettok(%seen,2,32) ( $+ $gettok(%seen,3,32) $+ ) %seen2 $gettok(%seen,4,32) $asctime($gettok(%seen,5,32))
    echo  $+ $clr(info) $+ *** $fx2(%seen)
  }
}

;==========
;Color stripping
;==========

say if (%stripper == On) say $strip($1-) | else say $1-
amsg if (%stripper == On) amsg $strip($1-) | else amsg $1-
ame if (%stripper == On) ame $strip($1-) | else ame $1-
me if (%stripper == On) me $strip($1-) | else me $1-
msg if (%stripper == On) msg $strip($1-) | else msg $1-
omsg if (%stripper == On) omsg $strip($1-) | else omsg $1-
notice if (%stripper == On) notice $strip($1-) | else notice $1-
onotice if (%stripper == On) onotice $strip($1-) | else onotice $1-